home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1995 August: Tool Chest / Dev.CD Aug 95 TC / Dev.CD Aug 95 TC.toast / Tool Chest / Development Tools & Languages / MPW Related / DTS MPW Goodies / ProjListMenu < prev    next >
Encoding:
Text File  |  1990-09-14  |  327 b   |  14 lines  |  [TEXT/MPS ]
  1. Set Exit 0
  2. DeleteMenu ProjList ≥ Dev:Null > Dev:Null
  3.  
  4. Set ProjectNameList "`MountProject -pp -s -r | Sort -l`"
  5.  
  6. for i in {ProjectNameList}
  7.     AddMenu ProjList "{i}" "Set ProjName ∂"{i}∂"; ∂
  8.         Execute SetProject; ∂
  9.         ( Evaluate "{i}" =~ /([a-zA-Z0-9_. ]+∂∫)*([¬∂∫]+)®1∂∫/ ) ∑ Dev:Null; ∂
  10.         Set Program ∂"∂{®1∂}∂""
  11. end
  12.  
  13. Set Exit 1
  14.